home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh15a.d64 / collection kit (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  12KB  |  355 lines
  1. 0 REM *********************************
  2. 1 REM *                               *
  3. 2 REM *  THE STAMPING COLLECTION KIT  *
  4. 3 REM *                               *
  5. 4 REM *  (C) IN 1986  BY ARNDT GANSE  *
  6. 5 REM *  IN DEN DORNEN 32             *
  7. 6 REM *  5810 WITTEN-ANNEN            *
  8. 7 REM *  TEL. 02302/60698             *
  9. 8 REM *                               *
  10. 9 REM *********************************
  11. 10 POKE53280,12:POKE53281,12:PRINT"[147]":DIMA$(22),RV$(22),B$(21):Q=1:Z=4:S=1
  12. 20 FORI=1TO40:B1$=B1$+" ":B2$=B2$+"[192]":NEXT:BR=12:LG=11:DEFFNZB(X)=LG+Z:IC=1
  13. 30 DEFFNSB(X)=S+LEN(A$(AZ))+1:SA=1:IQ=1
  14. 40 SZ=6500:SW=1:FORI=1TO40:B3$=B3$+"[195]":NEXT:IFPS=1THENSZ=4500
  15. 41 FF$(1)="KOENIGREICH":FF$(2)="GROSSHERZOGTUM":FF$(3)="HERZOGTUM"
  16. 42 FF$(4)="REPUBLIK":FF$(5)="KAISERREICH":FF$(6)="FREISTAAT"
  17. 43 FF$(7)="FUERSTENTUM":FF$(8)="VOLKSSTAAT"
  18. 49 GOTO1000
  19. 50 :
  20. 60 REM STANDARDMASKE
  21. 70 :
  22. 80 PRINT"[179][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][178]";
  23. 90 PRINT"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]";:FORD=1TO21
  24. 100 PRINT"[180]                                      [170]";:NEXT
  25. 110 PRINT"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]";
  26. 111 IFPS=0THENPRINT" PART I";
  27. 112 IFPS=1THENPRINT" PART ^";
  28. 113 PRINTLEFT$(B1$,15);
  29. 114 IFU%=0THENPRINT" DATA BANK CLOSED"
  30. 115 IFU%=1THENPRINT"   DATA BANK OPEN"
  31. 119 RETURN
  32. 120 :
  33. 130 REM MENUEERSTELLUNG
  34. 140 :
  35. 150 PRINT"[179][171][171]";X$(1);"[171][171]";X$(2);"[171][171]";X$(3);"[171][171]";X$(4);"[171][171]";X$(5);"[171][171]";X$(6);
  36. 155 PRINT"[171][171][178]"
  37. 160 RETURN
  38. 170 :
  39. 180 REM MENUEAUSWAHL
  40. 190 :
  41. 200 VY=1:J=PEEK(56320):GETX$
  42. 210 IF(JAND8)=0ORX$=""THENIFIQ=6THENIQ=1:GOTO260
  43. 220 IF(JAND8)=0ORX$=""THENIFIQ<6THENIQ=IQ+1:GOTO260
  44. 230 IF(JAND4)=0ORX$="[157]"THENIFIQ=1THENIQ=6:GOTO260
  45. 240 IF(JAND4)=0ORX$="[157]"THENIFIQ>1THENIQ=IQ-1:GOTO260
  46. 250 IF(JAND16)=0ORX$=CHR$(13)THENVY=0:RETURN
  47. 260 FORI=1TO6:X$(I)="[146]"+RIGHT$(X$(I),5):NEXT:X$(IQ)=""+RIGHT$(X$(IQ),5)
  48. 270 GOSUB120:IFVY=1THENVY=0:GOTO170
  49. 280 RETURN
  50. 290 :
  51. 300 REM WINDOW-TECHNIK
  52. 310 :
  53. 320 IFZ>(21-LG)ORS>(37-BR)THENZ=2:S=2
  54. 330 Z1=Z+1:S1=S+1:POKE214,Z:POKE211,S:SYS58732:PRINT"[213]";LEFT$(B2$,BR);"[201]"
  55. 340 FORX=1TOLG:POKE214,Z+X:POKE211,S:SYS58732:PRINT"[221]";LEFT$(B1$,BR);"[194]":NEXT
  56. 350 POKE214,Z+X:POKE211,S:SYS58732:PRINT"[202]";LEFT$(B3$,BR);"[203]":FORI=1TOAZ
  57. 360 POKE214,Z1:POKE211,S1:SYS58732:PRINTA$(I):Z1=Z1+1:NEXT:POKE646,1:RETURN
  58. 370 :
  59. 380 REM INPUT-ROUTINE
  60. 390 :
  61. 400 POKE198,0
  62. 410 SB=FNSB(X):ZB=FNZB(X):BE$="":POKE214,ZB:POKE211,SB:SYS58732:POKE204,0
  63. 420 GETX$:IFX$=CHR$(13)ANDLEN(BE$)>=MITHENPOKE204,1:PRINT" ":RETURN
  64. 430 IFX$=""THEN420
  65. 440 X=ASC(X$):IFX=20ANDBE$=""THEN420
  66. 445 IFX=133ANDPS=0THEN850
  67. 447 IFX>132ANDX<141ANDPS=1ANDS=6THEN940
  68. 450 IFX=20THENPRINT"[157]  [157][157]";:BE$=LEFT$(BE$,LEN(BE$)-1)
  69. 460 IFX<32ORX>95ORLEN(BE$)>=MATHEN420
  70. 470 PRINTX$;:IFX=32THENBE$=BE$+"":GOTO420
  71. 475 BE$=BE$+X$:GOTO420
  72. 480 :
  73. 490 REM MENUEAUSWAHL-ROUTINE
  74. 500 :
  75. 510 POKE198,0
  76. 520 FORI=1TOAZ:RV$(I)="[146]":NEXTI:Q=Q+((Q>AZ)*AZ):RV$(Q)="":Z1=Z+1:FORI=1TOAZ
  77. 530 POKE214,Z1:POKE211,S1:SYS58732:PRINTRV$(I);A$(I);"[146]":Z1=Z1+1:NEXTI
  78. 540 J=PEEK(56320):GETX$
  79. 550 IF(JAND1)=0ORX$="[145]"THENIFQ=BNTHENQ=EN:GOTO520
  80. 560 IF(JAND1)=0ORX$="[145]"THENIFQ>BNTHENQ=Q-1:GOTO520
  81. 570 IF(JAND2)=0ORX$=""THENIFQ=ENTHENQ=BN:GOTO520
  82. 580 IF(JAND2)=0ORX$=""THENIFQ<ENTHENQ=Q+1:GOTO520
  83. 590 IF(JAND16)=0ORX$=CHR$(13)THENRETURN
  84. 600 GOTO520
  85. 700 :
  86. 710 REM ZEIGER POSITIONIEREN
  87. 720 :
  88. 730 HB%=SA/256:LB%=SA-HB%*256:PRINT#15,"P";CHR$(3);CHR$(LB%);CHR$(HB%);CHR$(1)
  89. 740 RETURN
  90. 750 :
  91. 760 REM DISK UEBERPFUEFEN
  92. 770 :
  93. 780 F%=PEEK(768):POKE768,185:OPEN1,8,15,"I":CLOSE1:POKE768,F%
  94. 790 IFST<>-128THENRETURN
  95. 800 AZ=6:A$(1)="DRIVE":A$(2)="NOT":A$(3)="READY.":A$(4)="":A$(5)="PRESS":S=10
  96. 810 A$(6)="BUTTON":Z=Z+2:BR=6:LG=6:GOSUB320:GOSUB990:GOTO780
  97. 820 :
  98. 830 REM INPUT ZUSATZ I
  99. 840 :
  100. 850 POKE211,SB:SYS58732:IFS=6THENDS=1
  101. 860 IFS=11THENDS=2
  102. 870 IFS=15THENDS=3
  103. 880 IFS=25THENDS=4
  104. 890 IFS=28THENDS=5
  105. 900 PRINTTR$(DS);:BE$=TR$(DS):POKE198,1:POKE631,13:GOTO420
  106. 910 :
  107. 920 REM INPUT ZUSATZ II
  108. 930 :
  109. 940 POKE211,SB:SYS58732:IFS=6THENDS=1
  110. 950 PRINTFF$(X-132);:BE$=FF$(X-132):POKE198,1:POKE631,13:GOTO420
  111. 960 :
  112. 970 REM WARTEN AUF REAKTION
  113. 980 :
  114. 990 GETX$:IFPEEK(56320)AND16=0THENX$=CHR$(13)
  115. 995 IFX$=CHR$(13)THENRETURN
  116. 999 GOTO990
  117. 1000 :
  118. 1010 REM HAUPTVERTEILER
  119. 1020 :
  120. 1030 X$(1)="CRTE[146]":X$(2)="OPEN[146]":X$(3)="DISK[146]":X$(4)="EDIT[146]":X$(5)="PRNT[146]"
  121. 1040 X$(6)="EXIT[146]":GOSUB80:GOSUB260:GOSUB150:GOSUB200
  122. 1050 ONIQGOTO3000,2000,4000,7000,8000,6000
  123. 1060 END
  124. 2000 :
  125. 2010 REM OPEN
  126. 2020 :
  127. 2030 IFU%=0THENU%=1:GOTO2070
  128. 2040 AZ=8:A$(1)="YOU MUST":A$(2)="FIRST":A$(3)="CLOSE":A$(4)="THE LAST":S=5:Z=2
  129. 2050 A$(5)="DATA BANK":A$(6)="":A$(7)="PRESS":A$(8)="BUTTON":BR=9:LG=8:GOSUB320
  130. 2060 GOSUB990:GOTO1030
  131. 2070 AZ=5:A$(1)="PLEASE":A$(2)="ENTER":A$(3)="NAME":A$(4)="":A$(5)=":":S=7:Z=2
  132. 2080 BR=6:LG=5:MI=1:MA=5:GOSUB320:GOSUB400:IFBE$="_"THEN1030
  133. 2085 DA$=BE$:AZ=6:A$(1)="PLEASE":S=5:BR=9
  134. 2090 A$(2)="INSERT":A$(3)="YOUR DATA":A$(4)="DISK AND":A$(5)="PRESS"
  135. 2100 A$(6)="BUTTON":LG=6:Z=Z+2:GOSUB320:GOSUB990:GOSUB780
  136. 2110 OPEN15,8,15,"I0":OPEN1,8,3,DA$:GOTO1030
  137. 3000 :
  138. 3010 REM CREATE
  139. 3020 :
  140. 3030 IFU%<>0THEN2030
  141. 3040 AZ=5:A$(1)="PLEASE":A$(2)="ENTER":A$(3)="NAME":A$(4)="":A$(5)=":":S=1:Z=2
  142. 3050 BR=6:LG=5:MI=1:MA=5:GOSUB320:GOSUB400:IFBE$="_"THEN1030
  143. 3055 DA$=BE$:AZ=6:A$(1)="PLEASE":S=1:BR=9
  144. 3060 A$(2)="INSERT A":A$(3)="FORMATTED":A$(4)="DISK AND":A$(5)="PRESS"
  145. 3070 A$(6)="BUTTON":LG=6:Z=Z+2:GOSUB320:GOSUB990:GOSUB780:AZ=5:S=1:Z=Z+2
  146. 3080 A$(1)="ENTER":A$(2)="NO. OF":A$(3)="ENTRIES":A$(4)="":A$(5)=":":BR=7:LG=5
  147. 3090 MI=1:MA=4:GOSUB320:GOSUB400:SZ=VAL(BE$):IFSZ<1THEN3090
  148. 3100 IFPS=0ANDSZ>6500THEN3090
  149. 3105 IFPS=1ANDSZ>4500THEN3090
  150. 3110 IFPS=0THENSL=25:HB=INT(SZ/255):LB=SZ-HB*255:OPEN15,8,15,"I0"
  151. 3115 IFPS=1THENSL=31:HB=INT(SZ/255):LB=SZ-HB*255:OPEN15,8,15,"I0"
  152. 3120 OPEN1,8,3,DA$+",L,"+CHR$(SL):PRINT#15,"P";CHR$(3);CHR$(LB);CHR$(HB);CHR$(1)
  153. 3130 PRINT#1,CHR$(255):CLOSE1:CLOSE15:GOTO1030
  154. 4000 :
  155. 4010 REM DISK COMMANDS
  156. 4020 :
  157. 4030 IFU%<>0THEN2030
  158. 4040 AZ=5:A$(1)="":A$(2)="DISK COMMANDS":A$(3)="DIRECTORY":S=9:Z=2:BR=14:LG=5
  159. 4050 A$(4)="RETURN TO MENU":A$(5)="":EN=4:BN=2:Q=2:GOSUB320:GOSUB510
  160. 4060 ONQGOTO0,4070,4110,1030
  161. 4070 AZ=5:A$(1)="INSERT DISK":A$(2)="INTO DRIVE":A$(3)="":A$(4)="PRESS BUTTON"
  162. 4080 BR=12:LG=4:S=S+2:Z=Z+2:GOSUB320:GOSUB990:GOSUB780:PRINT"[147]"
  163. 4090 MI=1:MA=79:S=0:Z=0:BR=0:LG=0:GOSUB400:OPEN1,8,15,BE$:CLOSE1:OPEN15,8,15
  164. 4100 INPUT#15,A,B$,C,D:CLOSE15:PRINTA,B$,C,D:PRINT"PRESS FIRE BUTTON"
  165. 4105 GOSUB990:GOTO4040
  166. 4110 AZ=5:A$(1)="INSERT DISK":A$(2)="INTO DRIVE":A$(3)="":A$(4)="PRESS BUTTON"
  167. 4120 BR=12:LG=4:S=S+2:Z=Z+2:GOSUB320:GOSUB990:GOSUB780:PRINT"[147]"
  168. 4130 OPEN1,8,0,"$":GET#1,A$,A$
  169. 4140 GET#1,A$,A$:IFST=64THENCLOSE1:GOTO4180
  170. 4150 GET#1,A$,B$:PRINTASC(A$+CHR$(0))+256*ASC(B$+CHR$(0));
  171. 4160 GET#1,A$:PRINTA$;:IFA$<>""THEN4160
  172. 4170 PRINT:GETX$:IFX$="_"THEN4180
  173. 4175 GOTO4140
  174. 4180 PRINT"PRESS FIRE BUTTON.":GOSUB990:GOTO4040
  175. 6000 :
  176. 6010 REM EXIT
  177. 6020 :
  178. 6030 CLOSE1:CLOSE15:U%=0:AZ=5:A$(2)="RETURN TO MENU":A$(3)="RETURN TO BASIC"
  179. 6040 A$(1)="":A$(5)="":Z=2:BN=2:EN=4:BR=15:LG=5:IFPS=0THENA$(4)="ENTER PART ^"
  180. 6045 IFPS=1THENA$(4)="ENTER PART I"
  181. 6050 S=22:Q=2:GOSUB320:GOSUB510:IFQ=2THEN1030
  182. 6060 IFQ=4ANDPS=1THENPS=0:GOTO40
  183. 6070 IFQ=4ANDPS=0THENPS=1:GOTO40
  184. 6080 END
  185. 7000 :
  186. 7010 REM EDIT
  187. 7020 :
  188. 7030 IFU%=1THEN7065
  189. 7040 AZ=5:A$(1)="YOU FIRST":A$(2)="HAVE TO OPEN":A$(3)="A DATA BANK"
  190. 7050 A$(4)="":A$(5)="PRESS BUTTON":BR=12:LG=5:Z=2:S=16:GOSUB320
  191. 7060 GOSUB990:GOTO1030
  192. 7065 IFPS=1THEN9030
  193. 7070 AZ=7:A$(1)="READ DATA BANK":A$(2)="EDIT DATA BANK":BR=14:LG=7:Z=2:S=15
  194. 7080 A$(3)="SEARCH AN ITEM":A$(4)="COUNT ENTRIES":A$(7)="RETURN TO MENU"
  195. 7090 A$(5)="SAVE ENTRIES":A$(6)="EDIT DATA LIST":BN=1:EN=7:GOSUB320:GOSUB510
  196. 7100 ONQGOTO7110,7180,7420,7320,7310,10030,1030
  197. 7110 AZ=6:A$(1)="PLEASE ENTER":A$(2)="THE NUMBER":A$(3)="YOU WANT TO":S=S+2
  198. 7120 A$(4)="SEE.":A$(5)="":A$(6)=":":Z=Z+1:BR=12:LG=6:MI=0:MA=4:GOSUB320
  199. 7130 GOSUB400:IFBE$=""THEN7145
  200. 7135 IFBE$="_"THEN7030
  201. 7140 SA=VAL(BE$):IFSA+20>SZORSA<1THEN7120
  202. 7145 IFSA+20>SZORSA<1THEN7120
  203. 7150 GOSUB80:GOSUB730:FORI=1TO21:INPUT#1,B$(I):NEXT:PRINT"":FORI=1TO21:W$=""
  204. 7155 FORX=1TOI:W$=W$+"":NEXT:PRINTW$;"";SA
  205. 7160 SA=SA+1:NEXT:PRINT"":FORI=1TO21:W$="":FORX=1TOI:W$=W$+"":NEXT
  206. 7165 PRINTW$;"";B$(I):NEXT:GOSUB990
  207. 7170 GOTO7110
  208. 7180 AZ=6:A$(1)="PLEASE ENTER":A$(2)="THE NUMBER":A$(3)="YOU WANT TO":S=S+2
  209. 7190 A$(4)="EDIT":A$(5)="":A$(6)=":":Z=Z+1:BR=12:LG=6:MI=0:MA=4:GOSUB320
  210. 7200 GOSUB400:IFBE$=""THEN7215
  211. 7205 IFBE$="_"THEN7030
  212. 7210 SA=VAL(BE$):SW=SA:IFSA+21>SZORSA<1THEN7190
  213. 7215 SW=SA:IFSA+21>SZORSA<1THEN7190
  214. 7220 GOSUB80:GOSUB730:FORI=1TO21:INPUT#1,B$(I):NEXT:PRINT"":FORI=1TO21:W$=""
  215. 7225 FORX=1TOI:W$=W$+"":NEXT:PRINTW$;"";SW
  216. 7230 SW=SW+1:NEXT:PRINT"":FORI=1TO21:W$="":FORX=1TOI:W$=W$+"":NEXT
  217. 7235 PRINTW$;"";B$(I):NEXT:Z=1:BR=0:LG=0:A$(1)="":AZ=1
  218. 7240 FORI=1TO21:IFUI=1THENNEXT:UI=0:GOTO7180
  219. 7243 TR$="":MI=4:MA=4:S=6:Z=Z+1:GOSUB400:TR$=TR$+BE$+" ":TR$(1)=BE$
  220. 7245 IFBE$="____"THENUI=1:NEXT:UI=0:GOTO7180
  221. 7250 MI=0:MA=3:S=11:GOSUB400:TR$=TR$+LEFT$(BE$+"   ",3)+" ":TR$(2)=BE$
  222. 7260 MI=0:MA=9:S=15:GOSUB400:TR$=TR$+LEFT$(BE$+"         ",9)+" ":TR$(3)=BE$
  223. 7270 MI=1:MA=2:S=25:GOSUB400:TR$=TR$+LEFT$(BE$+"  ",2)+" ":TR$(4)=BE$
  224. 7280 MI=1:MA=1:S=28:GOSUB400:TR$=TR$+LEFT$(BE$+" ",1):TR$(5)=BE$
  225. 7290 GOSUB730:PRINT#1,TR$:SA=SA+1:NEXT
  226. 7300 GOTO7215
  227. 7310 CLOSE1:CLOSE15:OPEN15,8,15,"I0":OPEN1,8,3,DA$:GOTO7030
  228. 7320 AZ=5:A$(1)="COUNTING":FORI=2TO4:A$(I)="":NEXT:S=S+2:Z=Z+2:LG=5:BR=8
  229. 7330 A$(5)="STAND BY":GOSUB320:NE=0:SA=1:GOSUB730
  230. 7340 INPUT#1,A$:B$=RIGHT$(A$,1):SA=SA+1
  231. 7350 POKE214,Z+3:POKE211,S+2:SYS58732:PRINTRIGHT$("    "+STR$(SA),4)
  232. 7360 IFB$="X"ORB$="Y"ORB$="J"THENNE=NE+1
  233. 7370 IFB$<>"[255]"THEN7340
  234. 7380 SA=SA-1:AZ=6:Z=Z+2:S=S+2:BR=12:LG=6:A$(1)=DA$:A$(2)="INCLUDES"
  235. 7390 A$(3)=RIGHT$("    "+STR$(NE),4)+" OF "+RIGHT$("    "+STR$(SA),4)
  236. 7400 A$(4)="ENTRIES.":A$(5)="":A$(6)="PRESS BUTTON":GOSUB320:GOSUB990
  237. 7410 GOTO7030
  238. 7420 AZ=5:Z=Z+2:S=S+2:LG=5:BR=12:A$(1)="PLEASE ENTER":A$(2)="THE CAT. NO."
  239. 7430 A$(3)="OF THE ITEM":A$(4)="YOU WANT TO":A$(5)="FIND:":MI=1:MA=4:GOSUB320
  240. 7440 GOSUB400:IFBE$="_"THEN7030
  241. 7450 NO=VAL(BE$):IFNO<1ORNO>SZTHEN7430
  242. 7460 SA=1:GOSUB730
  243. 7470 INPUT#1,A$:SA=SA+1:IFA$="[255]"THEN7500
  244. 7480 B=VAL(LEFT$(A$,4)):IFNO<>BTHEN7470
  245. 7490 SA=SA-1:GOTO7145
  246. 7500 AZ=5:LG=5:BR=14:Z=Z+2:S=S+2:A$(1)="NO."+STR$(NO)+" IS NOT"
  247. 7510 A$(2)="INCLUDED IN":A$(3)=DA$:A$(4)="":A$(5)="PRESS BUTTON":GOSUB320
  248. 7520 GOSUB990:GOTO7030
  249. 8000 :
  250. 8010 REM PRINT-ROUTINE
  251. 8020 :
  252. 8030 IFU%=0THEN7040
  253. 8040 AZ=5:S=22:Z=2:LG=5:BR=12:A$(1)="ATTACH YOUR":A$(2)="PRINTER TO"
  254. 8050 A$(3)="THE COMPUTER":A$(4)="":A$(5)="PRESS BUTTON":GOSUB320
  255. 8060 GOSUB990:F%=PEEK(768):POKE768,185:OPEN4,4:CLOSE4:POKE768,F%
  256. 8070 IFST<>-128THEN8050
  257. 8080 OPEN4,4,7:SA=1:GOSUB730:PRINT#4,DA$:PRINT#4
  258. 8090 INPUT#1,A$:IFA$="[255]"THEN8120
  259. 8100 GETX$:IFX$="_"THEN8120
  260. 8110 PRINT#4,A$:GOTO8090
  261. 8120 CLOSE4:GOTO1030
  262. 9000 :
  263. 9010 REM EDIT PART II
  264. 9020 :
  265. 9030 AZ=7:A$(1)="READ DATA BANK":A$(2)="EDIT DATA BANK":BR=14:LG=7:Z=2:S=15
  266. 9040 A$(3)="SEARCH AN ITEM":A$(4)="COUNT ENTRIES":A$(7)="RETURN TO MENU"
  267. 9050 A$(5)="SAVE ENTRIES":A$(6)="EDIT DATA LIST":BN=1:EN=7:GOSUB320:GOSUB510
  268. 9060 ONQGOTO9070,9180,9420,9320,9310,11030,1030
  269. 9070 AZ=6:A$(1)="PLEASE ENTER":A$(2)="THE NUMBER":A$(3)="YOU WANT TO":S=S+2
  270. 9080 A$(4)="SEE.":A$(5)="":A$(6)=":":Z=Z+1:BR=12:LG=6:MI=0:MA=4:GOSUB320
  271. 9090 GOSUB400:IFBE$=""THEN9120
  272. 9100 IFBE$="_"THEN9030
  273. 9110 SA=VAL(BE$):IFSA+20>SZORSA<1THEN9080
  274. 9120 IFSA+20>SZORSA<1THEN9080
  275. 9130 GOSUB80:GOSUB730:FORZ=1TO21:INPUT#1,B$(Z):NEXT:PRINT"":FORI=1TO21:W$=""
  276. 9140 FORX=1TOI:W$=W$+"":NEXT:PRINTW$;"";SA
  277. 9150 SA=SA+1:NEXT:PRINT"":FORI=1TO21:W$="":FORX=1TOI:W$=W$+"":NEXT
  278. 9160 PRINTW$;"";B$(I):NEXT:GOSUB990
  279. 9170 GOTO9070
  280. 9180 AZ=6:A$(1)="PLEASE ENTER":A$(2)="THE NUMBER":A$(3)="YOU WANT TO":S=S+2
  281. 9190 A$(4)="EDIT":A$(5)="":A$(6)=":":Z=Z+1:BR=12:LG=6:MI=0:MA=4:GOSUB320
  282. 9200 GOSUB400:IFBE$=""THEN9215
  283. 9205 IFBE$="_"THEN9030
  284. 9210 SA=VAL(BE$):SW=SA:IFSA+21>SZORSA<1THEN9190
  285. 9215 SW=SA:IFSA+21>SZORSA<1THEN7190
  286. 9220 GOSUB80:GOSUB730:FORI=1TO21:INPUT#1,B$(I):NEXT:PRINT"":FORI=1TO21:W$=""
  287. 9225 FORX=1TOI:W$=W$+"":NEXT:PRINTW$;"";SW
  288. 9230 SW=SW+1:NEXT:PRINT"":FORI=1TO21:W$="":FORX=1TOI:W$=W$+"":NEXT
  289. 9235 PRINTW$;"";B$(I):NEXT:Z=1:BR=0:LG=0:A$(1)="":AZ=1
  290. 9240 FORI=1TO21:IFUI=1THENNEXT:UI=0:GOTO9180
  291. 9243 TR$="":MI=1:MA=25:S=6:Z=Z+1:GOSUB400
  292. 9244 TR$=TR$+LEFT$(BE$+"                        ",25)+" "
  293. 9245 IFBE$="_"THENUI=1:NEXT:UI=0:GOTO9180
  294. 9250 MI=4:MA=4:S=32:GOSUB400:TR$=TR$+BE$
  295. 9290 GOSUB730:PRINT#1,TR$:SA=SA+1:NEXT
  296. 9300 GOTO9215
  297. 9310 CLOSE1:CLOSE15:OPEN15,8,15,"I0":OPEN1,8,3,DA$:GOTO9030
  298. 9320 AZ=5:A$(1)="COUNTING":FORI=2TO4:A$(I)="":NEXT:S=S+2:Z=Z+2:LG=5:BR=8
  299. 9330 A$(5)="STAND BY":GOSUB320:NE=0:SA=1:GOSUB730
  300. 9340 INPUT#1,A$:B$=RIGHT$(A$,4):SA=SA+1
  301. 9350 POKE214,Z+3:POKE211,S+2:SYS58732:PRINTRIGHT$("    "+STR$(SA),4)
  302. 9360 NE=NE+VAL(B$)
  303. 9370 IFB$<>"[255]"THEN9340
  304. 9380 SA=SA-1:AZ=5:Z=Z+2:S=S+2:BR=12:LG=5:A$(1)=DA$:A$(2)="INCLUDES"
  305. 9390 A$(3)=RIGHT$("     "+STR$(NE),5)+" STAMPS"
  306. 9400 A$(4)="":A$(5)="PRESS BUTTON":GOSUB320:GOSUB990
  307. 9410 GOTO9030
  308. 9420 AZ=3:Z=Z+2:S=S+2:LG=3:BR=27:A$(1)="PLEASE ENTER THE NAME OF":MI=1:MA=25
  309. 9430 A$(2)="THE ITEM YOU WANT TO FIND":A$(3)=":":GOSUB320
  310. 9440 GOSUB400:IFBE$="_"THEN9030
  311. 9450 BE$=LEFT$(BE$+"                        ",25)
  312. 9460 SA=1:GOSUB730
  313. 9470 INPUT#1,A$:SA=SA+1:IFA$="[255]"THEN9500
  314. 9480 B$=LEFT$(A$,25):IFBE$<>B$THEN9470
  315. 9490 SA=SA-1:GOTO9120
  316. 9500 AZ=5:LG=5:BR=15:Z=Z+2:S=S+2:A$(1)="THE NAME IS NOT"
  317. 9510 A$(2)="INCLUDED IN":A$(3)=DA$:A$(4)="":A$(5)="PRESS BUTTON":GOSUB320
  318. 9520 GOSUB990:GOTO9030
  319. 10000 :
  320. 10010 REM EDIT DATA LIST I
  321. 10020 :
  322. 10030 AZ=6:A$(1)="PLEASE ENTER":A$(2)="THE NUMBER":A$(3)="YOU WANT TO":S=S+2
  323. 10040 A$(4)="EDIT":A$(5)="":A$(6)=":":Z=Z+1:BR=12:LG=6:MI=0:MA=4:GOSUB320
  324. 10050 GOSUB400:IFBE$=""THEN10080
  325. 10060 IFBE$="_"THEN7030
  326. 10070 SA=VAL(BE$):SW=SA:IFSA+21>SZORSA<1THEN7190
  327. 10080 SW=SA:IFSA+21>SZORSA<1THEN10190
  328. 10090 GOSUB80:GOSUB730:FORI=1TO21:INPUT#1,B$(I):NEXT:PRINT"":FORI=1TO21:W$=""
  329. 10100 FORX=1TOI:W$=W$+"":NEXT:PRINTW$;"";SW
  330. 10110 SW=SW+1:NEXT:PRINT"":FORI=1TO21:W$="":FORX=1TOI:W$=W$+"":NEXT
  331. 10120 PRINTW$;"";B$(I):NEXT:Z=1:BR=0:LG=0:A$(1)="":AZ=1
  332. 10130 FORI=1TO21:IFUI=1THENNEXT:UI=0:GOTO7180
  333. 10140 TR$=LEFT$(B$(Z),22):MI=1:MA=1:S=28:Z=Z+1:GOSUB400:TR$=TR$+BE$:TR$(1)=BE$
  334. 10150 IFBE$="_"THENUI=1:NEXT:UI=0:GOTO10040
  335. 10160 GOSUB730:PRINT#1,TR$:SA=SA+1:NEXT
  336. 10170 GOTO10080
  337. 11000 :
  338. 11010 REM EDIT DATA LIST II
  339. 11020 :
  340. 11030 AZ=6:A$(1)="PLEASE ENTER":A$(2)="THE NUMBER":A$(3)="YOU WANT TO":S=S+2
  341. 11040 A$(4)="EDIT":A$(5)="":A$(6)=":":Z=Z+1:BR=12:LG=6:MI=0:MA=4:GOSUB320
  342. 11050 GOSUB400:IFBE$=""THEN11080
  343. 11060 IFBE$="_"THEN7030
  344. 11070 SA=VAL(BE$):SW=SA:IFSA+21>SZORSA<1THEN7190
  345. 11080 SW=SA:IFSA+21>SZORSA<1THEN11190
  346. 11090 GOSUB80:GOSUB730:FORI=1TO21:INPUT#1,B$(I):NEXT:PRINT"":FORI=1TO21:W$=""
  347. 11100 FORX=1TOI:W$=W$+"":NEXT:PRINTW$;"";SW
  348. 11110 SW=SW+1:NEXT:PRINT"":FORI=1TO21:W$="":FORX=1TOI:W$=W$+"":NEXT
  349. 11120 PRINTW$;"";B$(I):NEXT:Z=1:BR=0:LG=0:A$(1)="":AZ=1
  350. 11130 FORI=1TO21:IFUI=1THENNEXT:UI=0:GOTO7180
  351. 11140 TR$=LEFT$(B$(Z),26):MI=4:MA=4:S=32:Z=Z+1:GOSUB400:TR$=TR$+BE$
  352. 11150 IFBE$="____"THENUI=1:NEXT:UI=0:GOTO11040
  353. 11160 GOSUB730:PRINT#1,TR$:SA=SA+1:NEXT
  354. 11170 GOTO11080
  355.